While Loop in R Programming